10 REM Make a tune
20 DIM n(100)
  : REM For up to 100 notes
30 REM Will use keys A,B,C,D,E,F,G
40 a = 10
  : b = 50
  : c = 80
  : d = 100
  : e = 150
  : f = 200
  : g = 225
50 i = 1
  : aa = 31266
  : REM a=47650 for 32K - a=64034 for 48K
60 CLS
  : PRINT "TO HEAR YOUR TUNE"
70 PRINT "PRESS THE SPACE BAR,"
80 PRINT "START COMPOSING, USE THE"
90 PRINT "LETTERS A,B,C,D,E,F,G"
100 a$ = INKEY$
110 IF a$ = "" THEN 100
120 IF a$ = " " THEN 310
  : REM SPACE BAR
130 IF a$ = "A" THEN 210
140 IF a$ = "B" THEN 220
150 IF a$ = "C" THEN 230
160 IF a$ = "D" THEN 240
170 IF a$ = "E" THEN 250
180 IF a$ = "F" THEN 260
190 IF a$ = "G" THEN 270
200 GOTO 100
210 POKE aa, a
  : n(i) = a
  : GOTO 280
220 POKE aa, b
  : n(i) = b
  : GOTO 280
230 POKE aa, c
  : n(i) = c
  : GOTO 280
240 POKE aa, d
  : n(i) = d
  : GOTO 280
250 POKE aa, e
  : n(i) = e
  : GOTO 280
260 POKE aa, f
  : n(i) = f
  : GOTO 280
270 POKE aa, g
  : n(i) = g
280 x = USR(0)
  : REM Call routine
290 IF i >= 100 THEN 310
  : REM n(i) for notes in tune
300 PRINT a$;
  : i = i + 1
  : GOTO 100
310 t = i-1
  : PRINT
320 PRINT "SPEED OF PLAYBACK (FAST,MEDIUM,SLOW)"
330 INPUT "1, 2 OR 3"; tt
  : tt = tt * 20
340 FOR i = 1 TO t
  : IF n(i) = 0 THEN 370
350 POKE aa, n(i)
  : x = USR(0)
360 FOR p = 1 TO tt
  : NEXT p, i
370 PRINT
380 PRINT "END OF YOUR TUNE."
390 END
